/ Archive Magazine CD 1995 / Archive Magazine CD 1995.iso / discs / prog_disc / volume_8 / issue_03 / diary / DiaryMaker

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 0d 00 0a 11 f4 20 3e 44 | 69 61 72 79 4d 61 6b 65 |..... >D|iaryMake|
|00000010| 72 0d 00 14 12 f4 20 62 | 79 20 43 61 69 6e 20 48 |r..... b|y Cain H|
|00000020| 75 6e 74 0d 00 1e 2d f4 | 20 6e 6f 74 20 63 6f 70 |unt...-.| not cop|
|00000030| 79 72 69 67 68 74 3a 20 | 75 73 65 20 74 68 65 20 |yright: |use the |
|00000040| 63 6f 64 65 20 61 73 20 | 79 6f 75 20 77 69 73 68 |code as |you wish|
|00000050| 0d 00 28 3c f4 20 55 53 | 45 20 41 54 20 59 4f 55 |..(<. US|E AT YOU|
|00000060| 52 20 4f 57 4e 20 52 49 | 53 4b 20 2d 20 6e 6f 20 |R OWN RI|SK - no |
|00000070| 67 75 61 72 61 6e 74 65 | 65 20 74 68 61 74 20 69 |guarante|e that i|
|00000080| 74 20 77 69 6c 6c 20 77 | 6f 72 6b 21 0d 00 32 04 |t will w|ork!..2.|
|00000090| 0d 00 3c 11 f4 20 50 72 | 65 73 65 74 20 64 61 74 |..<.. Pr|eset dat|
|000000a0| 61 0d 00 46 04 0d 00 50 | 17 77 65 65 6b 73 5f 70 |a..F...P|.weeks_p|
|000000b0| 65 72 5f 70 61 67 65 25 | 20 3d 20 36 0d 00 5a 49 |er_page%| = 6..ZI|
|000000c0| f4 20 72 65 6d 65 6d 62 | 65 72 20 74 68 61 74 20 |. rememb|er that |
|000000d0| 61 6e 20 61 72 72 61 79 | 20 49 25 28 36 29 20 77 |an array| I%(6) w|
|000000e0| 69 6c 6c 20 68 61 76 65 | 20 53 45 56 45 4e 20 65 |ill have| SEVEN e|
|000000f0| 6c 65 6d 65 6e 74 73 20 | 30 2c 31 2c 32 2c 33 2c |lements |0,1,2,3,|
|00000100| 34 2c 35 2c 36 0d 00 64 | 4d f4 20 74 68 69 73 20 |4,5,6..d|M. this |
|00000110| 69 73 20 77 68 79 20 77 | 70 70 25 20 69 73 20 6f |is why w|pp% is o|
|00000120| 6e 65 20 6c 65 73 73 20 | 74 68 61 6e 20 77 65 65 |ne less |than wee|
|00000130| 6b 73 5f 70 65 72 5f 70 | 61 67 65 25 20 61 6e 64 |ks_per_p|age% and|
|00000140| 20 69 73 20 75 73 65 64 | 20 74 6f 20 64 65 66 69 | is used| to defi|
|00000150| 6e 65 0d 00 6e 30 f4 20 | 74 68 65 20 61 72 72 61 |ne..n0. |the arra|
|00000160| 79 73 20 61 6e 64 20 63 | 6f 6e 74 72 6f 6c 20 74 |ys and c|ontrol t|
|00000170| 68 65 20 46 4f 52 2e 2e | 4e 45 58 54 20 6c 6f 6f |he FOR..|NEXT loo|
|00000180| 70 73 0d 00 78 41 f4 20 | 74 68 69 73 20 69 73 20 |ps..xA. |this is |
|00000190| 61 6c 73 6f 20 77 68 79 | 20 74 68 65 20 77 65 65 |also why| the wee|
|000001a0| 6b 73 20 61 72 65 20 6e | 75 6d 62 65 72 65 64 20 |ks are n|umbered |
|000001b0| 30 2d 35 20 72 61 74 68 | 65 72 20 74 68 61 6e 20 |0-5 rath|er than |
|000001c0| 31 2d 36 0d 00 82 2f f4 | 20 6c 69 6b 65 77 69 73 |1-6.../.| likewis|
|000001d0| 65 20 64 61 79 73 20 61 | 72 65 20 30 2d 36 20 61 |e days a|re 0-6 a|
|000001e0| 6e 64 20 6d 6f 6e 74 68 | 73 20 61 72 65 20 30 2d |nd month|s are 0-|
|000001f0| 31 31 0d 00 8c 1e 77 70 | 70 25 20 3d 20 77 65 65 |11....wp|p% = wee|
|00000200| 6b 73 5f 70 65 72 5f 70 | 61 67 65 25 20 2d 20 31 |ks_per_p|age% - 1|
|00000210| 0d 00 96 04 0d 00 a0 3e | f4 20 74 68 65 20 6f 72 |.......>|. the or|
|00000220| 64 65 72 20 69 6e 20 77 | 68 69 63 68 20 74 68 65 |der in w|hich the|
|00000230| 20 77 65 65 6b 73 20 61 | 72 65 20 70 72 69 6e 74 | weeks a|re print|
|00000240| 65 64 20 6f 75 74 20 6f | 6e 20 74 68 65 20 70 61 |ed out o|n the pa|
|00000250| 67 65 0d 00 aa 3a f4 20 | 66 6f 72 20 6f 72 67 61 |ge...:. |for orga|
|00000260| 6e 69 73 65 72 20 73 74 | 79 6c 65 20 64 69 61 72 |niser st|yle diar|
|00000270| 79 20 75 73 65 20 6f 72 | 64 65 72 20 30 2c 20 32 |y use or|der 0, 2|
|00000280| 2c 20 34 2c 20 35 2c 20 | 33 2c 20 31 0d 00 b4 49 |, 4, 5, |3, 1...I|
|00000290| f4 20 69 66 20 79 6f 75 | 20 63 68 61 6e 67 65 20 |. if you| change |
|000002a0| 74 68 65 20 6e 75 6d 62 | 65 72 20 6f 66 20 77 65 |the numb|er of we|
|000002b0| 65 6b 73 5f 70 65 72 5f | 70 61 67 65 25 20 74 68 |eks_per_|page% th|
|000002c0| 65 6e 20 79 6f 75 20 4d | 55 53 54 20 61 6c 74 65 |en you M|UST alte|
|000002d0| 72 20 74 68 65 0d 00 be | 24 f4 20 6e 75 6d 62 65 |r the...|$. numbe|
|000002e0| 72 20 6f 66 20 65 6e 74 | 72 69 65 73 20 6f 6e 20 |r of ent|ries on |
|000002f0| 74 68 69 73 20 6c 69 6e | 65 0d 00 c8 16 dc 20 30 |this lin|e..... 0|
|00000300| 2c 20 31 2c 20 32 2c 20 | 33 2c 20 34 2c 20 35 0d |, 1, 2, |3, 4, 5.|
|00000310| 00 d2 04 0d 00 dc 4b f4 | 20 69 66 20 79 6f 75 20 |......K.| if you |
|00000320| 77 61 6e 74 20 74 6f 20 | 63 68 61 6e 67 65 20 74 |want to |change t|
|00000330| 68 65 20 66 69 72 73 74 | 20 64 61 79 20 6f 66 20 |he first| day of |
|00000340| 74 68 65 20 77 65 65 6b | 20 6f 72 20 70 72 69 6e |the week| or prin|
|00000350| 74 20 69 6e 20 61 20 66 | 6f 72 65 69 67 6e 0d 00 |t in a f|oreign..|
|00000360| e6 4a f4 20 6c 61 6e 67 | 75 61 67 65 20 74 68 65 |.J. lang|uage the|
|00000370| 6e 20 61 6c 74 65 72 20 | 74 68 69 73 20 6c 69 6e |n alter |this lin|
|00000380| 65 20 61 73 20 6e 65 63 | 65 73 73 61 72 79 20 28 |e as nec|essary (|
|00000390| 6c 69 6b 65 77 69 73 65 | 20 66 6f 72 20 74 68 65 |likewise| for the|
|000003a0| 20 6d 6f 6e 74 68 73 29 | 0d 00 f0 44 dc 20 53 75 | months)|...D. Su|
|000003b0| 6e 64 61 79 2c 20 4d 6f | 6e 64 61 79 2c 20 54 75 |nday, Mo|nday, Tu|
|000003c0| 65 73 64 61 79 2c 20 57 | 65 64 6e 65 73 64 61 79 |esday, W|ednesday|
|000003d0| 2c 20 54 68 75 72 73 64 | 61 79 2c 20 46 72 69 64 |, Thursd|ay, Frid|
|000003e0| 61 79 2c 20 53 61 74 75 | 72 64 61 79 0d 00 fa 04 |ay, Satu|rday....|
|000003f0| 0d 01 04 11 dc 20 4a 61 | 6e 75 61 72 79 2c 20 33 |..... Ja|nuary, 3|
|00000400| 31 0d 01 0e 12 dc 20 46 | 65 62 72 75 61 72 79 2c |1..... F|ebruary,|
|00000410| 20 32 38 0d 01 18 0f dc | 20 4d 61 72 63 68 2c 20 | 28.....| March, |
|00000420| 33 31 0d 01 22 0f dc 20 | 41 70 72 69 6c 2c 20 33 |31..".. |April, 3|
|00000430| 30 0d 01 2c 0d dc 20 4d | 61 79 2c 20 33 31 0d 01 |0..,.. M|ay, 31..|
|00000440| 36 0e dc 20 4a 75 6e 65 | 2c 20 33 30 0d 01 40 0e |6.. June|, 30..@.|
|00000450| dc 20 4a 75 6c 79 2c 20 | 33 31 0d 01 4a 10 dc 20 |. July, |31..J.. |
|00000460| 41 75 67 75 73 74 2c 20 | 33 31 0d 01 54 13 dc 20 |August, |31..T.. |
|00000470| 53 65 70 74 65 6d 62 65 | 72 2c 20 33 30 0d 01 5e |Septembe|r, 30..^|
|00000480| 11 dc 20 4f 63 74 6f 62 | 65 72 2c 20 33 31 0d 01 |.. Octob|er, 31..|
|00000490| 68 12 dc 20 4e 6f 76 65 | 6d 62 65 72 2c 20 33 30 |h.. Nove|mber, 30|
|000004a0| 0d 01 72 12 dc 20 44 65 | 63 65 6d 62 65 72 2c 20 |..r.. De|cember, |
|000004b0| 33 31 0d 01 7c 04 0d 01 | 86 13 f4 20 64 65 66 69 |31..|...|... defi|
|000004c0| 6e 65 20 61 72 72 61 79 | 73 0d 01 90 2f f4 20 74 |ne array|s.../. t|
|000004d0| 68 65 73 65 20 61 72 72 | 61 79 73 20 77 69 6c 6c |hese arr|ays will|
|000004e0| 20 63 6f 6e 74 61 69 6e | 20 74 68 65 20 70 72 65 | contain| the pre|
|000004f0| 73 65 74 20 64 61 74 61 | 0d 01 9a 12 de 20 6f 72 |set data|..... or|
|00000500| 64 65 72 25 28 77 70 70 | 25 29 0d 01 a4 2a de 20 |der%(wpp|%)...*. |
|00000510| 64 61 79 24 28 36 29 2c | 20 6d 6f 6e 74 68 24 28 |day$(6),| month$(|
|00000520| 31 31 29 2c 20 6d 6f 6e | 74 68 5f 64 61 79 73 25 |11), mon|th_days%|
|00000530| 28 31 31 29 0d 01 ae 3b | f4 20 61 6c 6c 20 74 68 |(11)...;|. all th|
|00000540| 65 20 74 65 78 74 20 66 | 6f 72 20 61 20 70 61 67 |e text f|or a pag|
|00000550| 65 20 69 73 20 63 6f 6d | 70 69 6c 65 64 20 69 6e |e is com|piled in|
|00000560| 74 6f 20 74 68 65 73 65 | 20 61 72 72 61 79 73 0d |to these| arrays.|
|00000570| 01 b8 44 f4 20 74 68 61 | 74 20 69 73 20 77 68 79 |..D. tha|t is why|
|00000580| 20 74 68 65 69 72 20 73 | 69 7a 65 20 64 65 70 65 | their s|ize depe|
|00000590| 6e 64 73 20 6f 6e 20 74 | 68 65 20 6e 75 6d 62 65 |nds on t|he numbe|
|000005a0| 72 20 6f 66 20 77 65 65 | 6b 73 20 70 65 72 20 70 |r of wee|ks per p|
|000005b0| 61 67 65 0d 01 c2 3e de | 20 64 61 74 65 24 28 36 |age...>.| date$(6|
|000005c0| 2c 77 70 70 25 29 2c 20 | 6d 6f 6e 74 68 5f 68 65 |,wpp%), |month_he|
|000005d0| 61 64 69 6e 67 24 28 77 | 70 70 25 29 2c 20 79 65 |ading$(w|pp%), ye|
|000005e0| 61 72 5f 68 65 61 64 69 | 6e 67 24 28 77 70 70 25 |ar_headi|ng$(wpp%|
|000005f0| 29 0d 01 cc 04 0d 01 d6 | 22 f4 20 72 65 61 64 20 |).......|". read |
|00000600| 70 72 65 73 65 74 20 64 | 61 74 61 20 69 6e 74 6f |preset d|ata into|
|00000610| 20 61 72 72 61 79 73 0d | 01 e0 13 e3 20 58 25 20 | arrays.|.... X% |
|00000620| 3d 20 30 20 b8 20 77 70 | 70 25 0d 01 ea 10 f3 20 |= 0 . wp|p%..... |
|00000630| 6f 72 64 65 72 25 28 58 | 25 29 0d 01 f4 08 ed 20 |order%(X|%)..... |
|00000640| 58 25 0d 01 fe 10 e3 20 | 58 25 20 3d 20 30 20 b8 |X%..... |X% = 0 .|
|00000650| 20 36 0d 02 08 0e f3 20 | 64 61 79 24 28 58 25 29 | 6..... |day$(X%)|
|00000660| 0d 02 12 08 ed 20 58 25 | 0d 02 1c 11 e3 20 58 25 |..... X%|..... X%|
|00000670| 20 3d 20 30 20 b8 20 31 | 31 0d 02 26 21 f3 20 6d | = 0 . 1|1..&!. m|
|00000680| 6f 6e 74 68 24 28 58 25 | 29 2c 20 6d 6f 6e 74 68 |onth$(X%|), month|
|00000690| 5f 64 61 79 73 25 28 58 | 25 29 0d 02 30 08 ed 20 |_days%(X|%)..0.. |
|000006a0| 58 25 0d 02 3a 04 0d 02 | 44 2a f4 20 69 6e 70 75 |X%..:...|D*. inpu|
|000006b0| 74 20 73 74 61 72 74 20 | 64 61 74 65 20 61 6e 64 |t start |date and|
|000006c0| 20 6c 65 6e 67 74 68 20 | 6f 66 20 64 69 61 72 79 | length |of diary|
|000006d0| 0d 02 4e 2b f1 20 22 64 | 61 74 65 2c 6d 6f 6e 74 |..N+. "d|ate,mont|
|000006e0| 68 2c 79 65 61 72 20 6f | 66 20 66 69 72 73 74 20 |h,year o|f first |
|000006f0| 22 3b 20 64 61 79 24 28 | 30 29 3b 0d 02 58 1a e8 |"; day$(|0);..X..|
|00000700| 20 64 61 74 65 25 2c 20 | 6d 6f 6e 74 68 25 2c 20 | date%, |month%, |
|00000710| 79 65 61 72 25 0d 02 62 | 0f 6d 6f 6e 74 68 25 20 |year%..b|.month% |
|00000720| 2d 3d 20 31 0d 02 6c 21 | e7 20 79 65 61 72 25 20 |-= 1..l!|. year% |
|00000730| 3c 20 31 30 30 20 8c 20 | 79 65 61 72 25 20 2b 3d |< 100 . |year% +=|
|00000740| 20 31 39 30 30 0d 02 76 | 4c f1 20 22 43 6f 6e 66 | 1900..v|L. "Conf|
|00000750| 69 72 6d 20 73 74 61 72 | 74 20 64 61 74 65 20 3d |irm star|t date =|
|00000760| 20 53 75 6e 64 61 79 20 | 22 3b 20 64 61 74 65 25 | Sunday |"; date%|
|00000770| 3b 20 22 20 22 3b 20 6d | 6f 6e 74 68 24 28 6d 6f |; " "; m|onth$(mo|
|00000780| 6e 74 68 25 29 3b 20 22 | 20 22 3b 20 79 65 61 72 |nth%); "| "; year|
|00000790| 25 0d 02 80 37 f4 20 63 | 61 6c 63 75 6c 61 74 65 |%...7. c|alculate|
|000007a0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 64 61 79 73 20 | number |of days |
|000007b0| 69 6e 20 46 65 62 72 75 | 61 72 79 20 66 6f 72 20 |in Febru|ary for |
|000007c0| 74 68 65 20 79 65 61 72 | 0d 02 8a 6c e7 20 28 79 |the year|...l. (y|
|000007d0| 65 61 72 25 20 83 20 34 | 20 3d 20 30 29 20 80 20 |ear% . 4| = 0) . |
|000007e0| 28 28 79 65 61 72 25 20 | 83 20 31 30 30 20 3c 3e |((year% |. 100 <>|
|000007f0| 20 30 29 20 84 20 28 79 | 65 61 72 25 20 83 20 34 | 0) . (y|ear% . 4|
|00000800| 30 30 20 3d 20 30 29 29 | 20 8c 20 6d 6f 6e 74 68 |00 = 0))| . month|
|00000810| 5f 64 61 79 73 25 28 31 | 29 20 3d 20 32 39 20 8b |_days%(1|) = 29 .|
|00000820| 20 6d 6f 6e 74 68 5f 64 | 61 79 73 25 28 31 29 20 | month_d|ays%(1) |
|00000830| 3d 20 32 38 0d 02 94 3c | f1 20 22 48 6f 77 20 6d |= 28...<|. "How m|
|00000840| 61 6e 79 20 70 61 67 65 | 73 20 28 65 61 63 68 20 |any page|s (each |
|00000850| 3d 20 22 3b 20 77 65 65 | 6b 73 5f 70 65 72 5f 70 |= "; wee|ks_per_p|
|00000860| 61 67 65 25 3b 20 22 20 | 77 65 65 6b 73 29 22 3b |age%; " |weeks)";|
|00000870| 0d 02 9e 0c e8 20 70 61 | 67 65 73 25 0d 02 a8 04 |..... pa|ges%....|
|00000880| 0d 02 b2 27 f4 20 6f 70 | 65 6e 20 74 68 65 20 66 |...'. op|en the f|
|00000890| 69 6c 65 20 74 6f 20 73 | 65 6e 64 20 74 68 65 20 |ile to s|end the |
|000008a0| 74 65 78 74 20 74 6f 0d | 02 bc 14 2a 53 50 4f 4f |text to.|...*SPOO|
|000008b0| 4c 20 44 69 61 72 79 54 | 65 78 74 0d 02 c6 04 0d |L DiaryT|ext.....|
|000008c0| 02 d0 18 e3 20 70 61 67 | 65 25 20 3d 20 31 20 b8 |.... pag|e% = 1 .|
|000008d0| 20 70 61 67 65 73 25 0d | 02 da 04 0d 02 e4 4c f4 | pages%.|......L.|
|000008e0| 20 66 6f 72 20 65 61 63 | 68 20 6f 66 20 74 68 65 | for eac|h of the|
|000008f0| 20 77 65 65 6b 73 20 6f | 6e 20 74 68 65 20 70 61 | weeks o|n the pa|
|00000900| 67 65 20 63 61 6c 63 75 | 6c 61 74 65 20 61 6c 6c |ge calcu|late all|
|00000910| 20 74 68 65 20 64 61 74 | 65 73 20 61 6e 64 20 74 | the dat|es and t|
|00000920| 68 65 20 70 61 67 65 0d | 02 ee 49 f4 20 68 65 61 |he page.|..I. hea|
|00000930| 64 69 6e 67 20 28 6d 6f | 6e 74 68 20 26 20 79 65 |ding (mo|nth & ye|
|00000940| 61 72 29 2e 20 54 68 69 | 73 20 69 73 20 63 61 6c |ar). Thi|s is cal|
|00000950| 63 75 6c 61 74 65 64 20 | 66 6f 72 20 65 61 63 68 |culated |for each|
|00000960| 20 6f 66 20 74 68 65 20 | 77 65 65 6b 73 20 69 6e | of the |weeks in|
|00000970| 0d 02 f8 4b f4 20 61 64 | 76 61 6e 63 65 20 73 6f |...K. ad|vance so|
|00000980| 20 74 68 65 79 20 63 61 | 6e 20 62 65 20 70 72 69 | they ca|n be pri|
|00000990| 6e 74 65 64 20 69 6e 20 | 61 6e 79 20 6f 72 64 65 |nted in |any orde|
|000009a0| 72 20 28 65 67 2e 20 66 | 6f 72 20 6f 72 67 61 6e |r (eg. f|or organ|
|000009b0| 69 73 65 72 20 64 69 61 | 72 79 29 0d 03 02 16 e3 |iser dia|ry).....|
|000009c0| 20 77 65 65 6b 25 20 3d | 20 30 20 b8 20 77 70 70 | week% =| 0 . wpp|
|000009d0| 25 0d 03 0c 04 0d 03 16 | 2a 6d 6f 6e 74 68 5f 68 |%.......|*month_h|
|000009e0| 65 61 64 69 6e 67 24 28 | 77 65 65 6b 25 29 20 3d |eading$(|week%) =|
|000009f0| 20 6d 6f 6e 74 68 24 28 | 6d 6f 6e 74 68 25 29 0d | month$(|month%).|
|00000a00| 03 20 23 79 65 61 72 5f | 68 65 61 64 69 6e 67 24 |. #year_|heading$|
|00000a10| 28 77 65 65 6b 25 29 20 | 3d 20 c3 28 79 65 61 72 |(week%) |= .(year|
|00000a20| 25 29 0d 03 2a 04 0d 03 | 34 12 e3 20 64 61 79 25 |%)..*...|4.. day%|
|00000a30| 20 3d 20 30 20 b8 20 36 | 0d 03 3e 20 64 61 74 65 | = 0 . 6|..> date|
|00000a40| 24 28 64 61 79 25 2c 77 | 65 65 6b 25 29 20 3d 20 |$(day%,w|eek%) = |
|00000a50| c3 28 64 61 74 65 25 29 | 0d 03 48 04 0d 03 52 4d |.(date%)|..H...RM|
|00000a60| f4 20 6f 6e 20 66 69 72 | 73 74 20 6f 66 20 6d 6f |. on fir|st of mo|
|00000a70| 6e 74 68 20 65 78 63 65 | 70 74 20 77 68 65 6e 20 |nth exce|pt when |
|00000a80| 61 74 20 74 6f 70 20 6f | 66 20 70 61 67 65 20 70 |at top o|f page p|
|00000a90| 72 65 63 65 64 65 20 64 | 61 74 65 20 62 79 20 6d |recede d|ate by m|
|00000aa0| 6f 6e 74 68 20 6e 61 6d | 65 0d 03 5c 83 e7 20 64 |onth nam|e..\.. d|
|00000ab0| 61 74 65 25 20 3d 20 31 | 20 80 20 64 61 79 25 20 |ate% = 1| . day% |
|00000ac0| 3e 20 30 20 8c 20 64 61 | 74 65 24 28 64 61 79 25 |> 0 . da|te$(day%|
|00000ad0| 2c 77 65 65 6b 25 29 20 | 3d 20 22 7b 22 22 4e 65 |,week%) |= "{""Ne|
|00000ae0| 77 20 4d 6f 6e 74 68 22 | 22 20 6f 6e 7d 22 20 2b |w Month"|" on}" +|
|00000af0| 20 6d 6f 6e 74 68 24 28 | 6d 6f 6e 74 68 25 29 20 | month$(|month%) |
|00000b00| 2b 20 22 7b 22 22 4e 65 | 77 20 4d 6f 6e 74 68 22 |+ "{""Ne|w Month"|
|00000b10| 22 20 6f 66 66 7d 20 22 | 20 2b 20 64 61 74 65 24 |" off} "| + date$|
|00000b20| 28 64 61 79 25 2c 77 65 | 65 6b 25 29 0d 03 66 04 |(day%,we|ek%)..f.|
|00000b30| 0d 03 70 0e 64 61 74 65 | 25 20 2b 3d 20 31 0d 03 |..p.date|% += 1..|
|00000b40| 7a 04 0d 03 84 23 e7 20 | 64 61 74 65 25 20 3e 20 |z....#. |date% > |
|00000b50| 6d 6f 6e 74 68 5f 64 61 | 79 73 25 28 6d 6f 6e 74 |month_da|ys%(mont|
|00000b60| 68 25 29 20 8c 0d 03 8e | 0d 64 61 74 65 25 20 3d |h%) ....|.date% =|
|00000b70| 20 31 0d 03 98 0f 6d 6f | 6e 74 68 25 20 2b 3d 20 | 1....mo|nth% += |
|00000b80| 31 0d 03 a2 13 e7 20 6d | 6f 6e 74 68 25 20 3e 20 |1..... m|onth% > |
|00000b90| 31 31 20 8c 0d 03 ac 0e | 79 65 61 72 25 20 2b 3d |11 .....|year% +=|
|00000ba0| 20 31 0d 03 b6 46 f4 20 | 6e 65 77 20 79 65 61 72 | 1...F. |new year|
|00000bb0| 20 73 6f 20 72 65 2d 63 | 61 6c 63 75 6c 61 74 65 | so re-c|alculate|
|00000bc0| 20 6e 75 6d 62 65 72 20 | 6f 66 20 64 61 79 73 20 | number |of days |
|00000bd0| 69 6e 20 46 65 62 72 75 | 61 72 79 20 66 6f 72 20 |in Febru|ary for |
|00000be0| 74 68 65 20 79 65 61 72 | 0d 03 c0 6c e7 20 28 79 |the year|...l. (y|
|00000bf0| 65 61 72 25 20 83 20 34 | 20 3d 20 30 29 20 80 20 |ear% . 4| = 0) . |
|00000c00| 28 28 79 65 61 72 25 20 | 83 20 31 30 30 20 3c 3e |((year% |. 100 <>|
|00000c10| 20 30 29 20 84 20 28 79 | 65 61 72 25 20 83 20 34 | 0) . (y|ear% . 4|
|00000c20| 30 30 20 3d 20 30 29 29 | 20 8c 20 6d 6f 6e 74 68 |00 = 0))| . month|
|00000c30| 5f 64 61 79 73 25 28 31 | 29 20 3d 20 32 39 20 8b |_days%(1|) = 29 .|
|00000c40| 20 6d 6f 6e 74 68 5f 64 | 61 79 73 25 28 31 29 20 | month_d|ays%(1) |
|00000c50| 3d 20 32 38 0d 03 ca 0e | 6d 6f 6e 74 68 25 20 3d |= 28....|month% =|
|00000c60| 20 30 0d 03 d4 05 cd 0d | 03 de 4d f4 20 69 66 20 | 0......|..M. if |
|00000c70| 6e 65 77 20 6d 6f 6e 74 | 68 20 6f 72 20 79 65 61 |new mont|h or yea|
|00000c80| 72 20 64 6f 65 73 20 6e | 6f 74 20 6f 63 63 75 72 |r does n|ot occur|
|00000c90| 20 61 74 20 74 68 65 20 | 62 65 67 69 6e 6e 69 6e | at the |beginnin|
|00000ca0| 67 20 6f 66 20 61 20 6e | 65 77 20 77 65 65 6b 20 |g of a n|ew week |
|00000cb0| 74 68 65 6e 0d 03 e8 34 | f4 20 61 6c 74 65 72 20 |then...4|. alter |
|00000cc0| 74 68 65 20 6d 6f 6e 74 | 68 20 2f 20 79 65 61 72 |the mont|h / year|
|00000cd0| 20 68 65 61 64 69 6e 67 | 20 74 6f 20 72 65 66 6c | heading| to refl|
|00000ce0| 65 63 74 20 74 68 69 73 | 0d 03 f2 10 e7 20 64 61 |ect this|..... da|
|00000cf0| 79 25 20 3c 20 36 20 8c | 0d 03 fc 12 e7 20 6d 6f |y% < 6 .|..... mo|
|00000d00| 6e 74 68 25 20 3d 20 30 | 20 8c 0d 04 06 37 6d 6f |nth% = 0| ....7mo|
|00000d10| 6e 74 68 5f 68 65 61 64 | 69 6e 67 24 28 77 65 65 |nth_head|ing$(wee|
|00000d20| 6b 25 29 20 2b 3d 20 22 | 20 22 20 2b 20 79 65 61 |k%) += "| " + yea|
|00000d30| 72 5f 68 65 61 64 69 6e | 67 24 28 77 65 65 6b 25 |r_headin|g$(week%|
|00000d40| 29 0d 04 10 23 79 65 61 | 72 5f 68 65 61 64 69 6e |)...#yea|r_headin|
|00000d50| 67 24 28 77 65 65 6b 25 | 29 20 3d 20 c3 28 79 65 |g$(week%|) = .(ye|
|00000d60| 61 72 25 29 0d 04 1a 05 | cd 0d 04 24 31 6d 6f 6e |ar%)....|...$1mon|
|00000d70| 74 68 5f 68 65 61 64 69 | 6e 67 24 28 77 65 65 6b |th_headi|ng$(week|
|00000d80| 25 29 20 2b 3d 20 22 2f | 22 20 2b 20 6d 6f 6e 74 |%) += "/|" + mont|
|00000d90| 68 24 28 6d 6f 6e 74 68 | 25 29 0d 04 2e 05 cd 0d |h$(month|%)......|
|00000da0| 04 38 05 cd 0d 04 42 04 | 0d 04 4c 0a ed 20 64 61 |.8....B.|..L.. da|
|00000db0| 79 25 0d 04 56 0b ed 20 | 77 65 65 6b 25 0d 04 60 |y%..V.. |week%..`|
|00000dc0| 04 0d 04 6a 42 f4 20 6f | 75 74 70 75 74 20 74 68 |...jB. o|utput th|
|00000dd0| 65 20 63 6f 6d 70 69 6c | 65 64 20 77 65 65 6b 73 |e compil|ed weeks|
|00000de0| 20 69 6e 20 74 68 65 20 | 6f 72 64 65 72 20 73 70 | in the |order sp|
|00000df0| 65 63 69 66 69 65 64 20 | 69 6e 20 6f 72 64 65 72 |ecified |in order|
|00000e00| 25 28 29 0d 04 74 17 e3 | 20 66 72 61 6d 65 25 20 |%()..t..| frame% |
|00000e10| 3d 20 30 20 b8 20 77 70 | 70 25 0d 04 7e 1a 77 65 |= 0 . wp|p%..~.we|
|00000e20| 65 6b 25 20 3d 20 6f 72 | 64 65 72 25 28 66 72 61 |ek% = or|der%(fra|
|00000e30| 6d 65 25 29 0d 04 88 65 | f1 20 22 7b 43 52 7d 7b |me%)...e|. "{CR}{|
|00000e40| 22 22 4d 6f 6e 74 68 22 | 22 20 6f 6e 7d 22 3b 20 |""Month"|" on}"; |
|00000e50| 6d 6f 6e 74 68 5f 68 65 | 61 64 69 6e 67 24 28 77 |month_he|ading$(w|
|00000e60| 65 65 6b 25 29 3b 20 22 | 20 22 3b 20 79 65 61 72 |eek%); "| "; year|
|00000e70| 5f 68 65 61 64 69 6e 67 | 24 28 77 65 65 6b 25 29 |_heading|$(week%)|
|00000e80| 3b 20 bd 31 30 3b 20 22 | 7b 22 22 4d 6f 6e 74 68 |; .10; "|{""Month|
|00000e90| 22 22 20 6f 66 66 7d 22 | 3b 0d 04 92 12 e3 20 64 |"" off}"|;..... d|
|00000ea0| 61 79 25 20 3d 20 30 20 | b8 20 36 0d 04 9c 69 f1 |ay% = 0 |. 6...i.|
|00000eb0| 20 22 7b 22 22 44 61 79 | 22 22 20 6f 6e 7d 22 3b | "{""Day|"" on}";|
|00000ec0| 20 64 61 79 24 28 64 61 | 79 25 29 3b 20 22 7b 22 | day$(da|y%); "{"|
|00000ed0| 22 44 61 79 22 22 20 6f | 66 66 7d 7b 54 61 62 7d |"Day"" o|ff}{Tab}|
|00000ee0| 7b 22 22 44 61 74 65 22 | 22 20 6f 6e 7d 22 3b 20 |{""Date"|" on}"; |
|00000ef0| 64 61 74 65 24 28 64 61 | 79 25 2c 77 65 65 6b 25 |date$(da|y%,week%|
|00000f00| 29 3b 20 22 7b 22 22 44 | 61 74 65 22 22 20 6f 66 |); "{""D|ate"" of|
|00000f10| 66 7d 22 3b 0d 04 a6 3a | f1 20 22 7b 22 22 52 75 |f}";...:|. "{""Ru|
|00000f20| 6c 65 20 4f 66 66 22 22 | 20 6f 6e 7d 22 3b 20 bd |le Off""| on}"; .|
|00000f30| 31 30 3b 20 22 7b 22 22 | 52 75 6c 65 20 4f 66 66 |10; "{""|Rule Off|
|00000f40| 22 22 20 6f 66 66 7d 22 | 3b 20 bd 31 30 3b 0d 04 |"" off}"|; .10;..|
|00000f50| b0 4a f4 20 74 6f 20 70 | 72 65 76 65 6e 74 20 61 |.J. to p|revent a|
|00000f60| 6e 20 65 78 74 72 61 20 | 70 61 67 65 20 62 65 69 |n extra |page bei|
|00000f70| 6e 67 20 67 65 6e 65 72 | 61 74 65 64 20 61 74 20 |ng gener|ated at |
|00000f80| 74 68 65 20 65 6e 64 20 | 6f 66 20 74 68 65 20 64 |the end |of the d|
|00000f90| 69 61 72 79 20 74 68 65 | 0d 04 ba 31 f4 20 6c 61 |iary the|...1. la|
|00000fa0| 73 74 20 6e 65 77 20 6c | 69 6e 65 20 61 6e 64 20 |st new l|ine and |
|00000fb0| 4e 65 78 74 46 72 61 6d | 65 20 61 72 65 20 6e 6f |NextFram|e are no|
|00000fc0| 74 20 70 72 69 6e 74 65 | 64 0d 04 c4 38 e7 20 66 |t printe|d...8. f|
|00000fd0| 72 61 6d 65 25 20 3c 20 | 77 70 70 25 20 84 20 70 |rame% < |wpp% . p|
|00000fe0| 61 67 65 25 20 3c 20 70 | 61 67 65 73 25 20 84 20 |age% < p|ages% . |
|00000ff0| 64 61 79 25 20 3c 20 36 | 20 8c 20 f1 20 bd 31 30 |day% < 6| . . .10|
|00001000| 3b 0d 04 ce 0a ed 20 64 | 61 79 25 0d 04 d8 37 e7 |;..... d|ay%...7.|
|00001010| 20 66 72 61 6d 65 25 20 | 3c 20 77 70 70 25 20 84 | frame% |< wpp% .|
|00001020| 20 70 61 67 65 25 20 3c | 20 70 61 67 65 73 25 20 | page% <| pages% |
|00001030| 8c 20 f1 20 22 7b 4e 65 | 78 74 46 72 61 6d 65 7d |. . "{Ne|xtFrame}|
|00001040| 22 3b 0d 04 e2 0c ed 20 | 66 72 61 6d 65 25 0d 04 |";..... |frame%..|
|00001050| ec 0b ed 20 70 61 67 65 | 25 0d 04 f6 04 0d 05 00 |... page|%.......|
|00001060| 30 f4 20 63 6c 6f 73 65 | 20 6f 75 74 70 75 74 20 |0. close| output |
|00001070| 66 69 6c 65 20 61 6e 64 | 20 73 65 74 20 66 69 6c |file and| set fil|
|00001080| 65 74 79 70 65 20 74 6f | 20 54 45 58 54 0d 05 0a |etype to| TEXT...|
|00001090| 0a 2a 53 50 4f 4f 4c 0d | 05 14 1b 2a 53 65 74 54 |.*SPOOL.|...*SetT|
|000010a0| 79 70 65 20 44 69 61 72 | 79 54 65 78 74 20 54 45 |ype Diar|yText TE|
|000010b0| 58 54 0d 05 1e 05 e0 0d | 05 28 04 0d ff          |XT......|.(...   |
+--------+-------------------------+-------------------------+--------+--------+